#!/usr/bin/perl
use strict;
use utf8;
use Encode;

#my $input;
#my $output;

#$input = shift @ARGV || die $!;
#$output = shift @ARGV || die $!;

#open(IN,$input);
#open(OUT,">$output");

binmode(IN, ":encoding(utf-8)");
binmode(STDIN, ":encoding(utf-8)");
binmode(STDOUT, ":encoding(utf-8)");
#binmode(OUT, ":encoding(utf-8)");

$/ = "\n\n\/news\/";#дробим на str по такому разделителю
#$/ = "\nhttp:\/\/lenta\.ru\/news\/";#для нашего тестового корпуса

while(my $str = <STDIN>){
	if ($str =~ /\s[Фф]утбол[^к]|\s[Хх]окке|\s[Бб]аскетбол|\s[Вв]олейбол|\sНХЛ|\sКХЛ|\sФК|\sНБА|\s[Фф]ифа|\sУЕФА|\sЦСКА|[Гг]олкипер|[Фф]орвард|[Бб]уллит/ && $str =~ /\s[Мм]атч|\s[Сс]борн[ауыо]|\s[Сс]о\sсчётом|\s[Сс]о\sсчетом|\sНХЛ|\sКХЛ|\s[Чч]емпионат|\s[Гг]олкипер|\s[Фф]орвард|\sФК|\s1\/(\d)+\s+(финал|кубк|чемпионат|лиг)|\s[Шш]айб|\s[Пп]енальти|\s[Чч]етвертьфинал|\s[Тт]ретьфинал|\s[Пп]олуфинал|\s[Пп]олузащитник|\s[Тт]рехочков|\s[Бб]уллит|\sНБА|\s[Оо]вертайм|\s[Тт]ренер|\sУЕФА/ && $str !~ /[Пп]остановление [Пп]равительства Российской Федерации|[Пп]остановление [Пп]равительства РФ/){
		print STDOUT $str;
	}
}


#close OUT;
close IN;
